home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / hunt.g < prev    next >
Text File  |  1997-01-14  |  1KB  |  73 lines
  1. G4C
  2.  
  3.  
  4. winbig -1 -1 400 137 "CLI-Master"
  5. winsmall 240 0 200 -1
  6. wintype 11110001
  7. winout nil:
  8.  
  9.  
  10. xonopen
  11. setvar .res ""
  12. setvar cmst_file ""
  13. update hunt.g 3 "Enter Filename"
  14. update hunt.g 2 $cmst_file
  15. setgad hunt.g 2 on
  16.  
  17. xonclose
  18. lvdir climaster $cmst_srce none
  19. delvar cmst_file
  20. delete env:.res
  21. lvclear hunt.g 1
  22. guiclose hunt.g
  23.  
  24. xonfail
  25. ezreq "Error during processing." Okay ""
  26. lvdir climaster $cmst_srce none
  27. guiclose hunt.g
  28.  
  29.  
  30. box 0 0 0 0 in icondrop
  31.  
  32.  
  33. xlistview 10 31 380 100 "" cmst_file "" 0 txt
  34. gadid 1
  35. extract cmst_file path cmst_pname
  36. extract cmst_file file cmst_fname
  37. lvdir climaster $cmst_srce #$cmst_pname
  38. lvfind climaster $cmst_srce $cmst_fname
  39. if $cmst_srce = 1
  40.    update climaster 3 '$cmst_pname'
  41. else
  42.    update climaster 4 '$cmst_pname'
  43. endif
  44. guiclose hunt.g
  45.  
  46. xbutton 270 17 60 13 "«««"
  47. lvmove hunt.g 1 -20
  48.  
  49. xbutton 330 17 60 13 "»»»"
  50. lvmove hunt.g 1 20
  51.  
  52. xtextin  10 17 260 13 "" cmst_file "" 30
  53. gadid 2
  54. guiwindow hunt.g wait
  55. lvmulti climaster $cmst_srce first
  56. if $cmst_select = ""
  57.    ezreq "No Dir(s) Selected" Okay ""
  58.    guiclose hunt.g
  59. endif
  60. while $cmst_select > ""
  61.     setstack 6000
  62.     cli 'list >>env:.res sub $cmst_file $cmst_select all lformat "%s%s"'
  63.     setstack 4000
  64.     lvmulti climaster $cmst_srce off
  65.     lvmulti climaster $cmst_srce next
  66. endwhile
  67. lvchange hunt.g 1 env:.res
  68. guiwindow hunt.g resume
  69. update hunt.g 3 "File Hunt Finished."
  70.  
  71. text 80 5 250 12 "Enter Filename" 30 nobox
  72. gadid 3
  73.